home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / qm3inst.arc / HOST.ARC / CHAT.HST next >
Text File  |  1987-04-16  |  713b  |  28 lines
  1.  
  2. .  Chat.HST  **** Chat Mode Selected ****
  3.  
  4.    Writeln " "
  5.    Writeln "You are in Chat Mode."
  6.    Writeln "Turn on your 'Local Echo' (Alt-E in Qmodem) and"
  7.    Writeln "'Add-Linefeeds' (Shift-TAB in Qmodem)."
  8.    Writeln " "
  9.    Writeln 'Type  "MAINMENU*" to Return  [Press Enter]'
  10.    Writeln " "
  11.    Timeout 600 Chat3_
  12.    Turnon Echo Linefeed
  13.  
  14. Chat2_:
  15.    Waitfor "mainmenu*"
  16.    Turnoff Echo Linefeed
  17.    Writeln "Chat mode ended."
  18.    Writeln "Turn off your 'Local Echo' (Alt-E in Qmodem) and"
  19.    Writeln "'Add-Linefeeds' (Shift-TAB in Qmodem)."
  20.    Writeln " "
  21.    Return
  22.  
  23. Chat3_:
  24.    Writeln " "
  25.    Writeln "Chat still active, 'MAINMENU*' to Exit.  Continue..."
  26.    Writeln " "
  27.    Goto Chat2_
  28.